UC知道delphi7 SQL问题|?
来源：百度知道 编辑：UC知道 时间：2024/05/09 13:54:14
uses里加入DataModule模块;DataModule模块里放一个TADOQuery,TADOQuery连一个TADOConnection,按钮OK单击事件时写:
var
sSQL: string;
begin
sSQL = 'SELECT * FROM LoginTable WHERE LoginName = ''' + edtLoginName.Text + ''' AND LoginPass = ''' + edtPassword.Text + '''';
qryLogin.Close
qryLogin.SQL.Text := sSQL;
qryLogin.Open;
if not qryLogin.Eof then
// 正确
else
// 不正确
end;
--------------------------------------
这些是什么东西,具体价绍一下~
var
sSQL: string;
begin
sSQL = 'SELECT * FROM LoginTable WHERE LoginName = ''' + edtLoginName.Text + ''' AND LoginPass = ''' + edtPassword.Text + '''';
qryLogin.Close
qryLogin.SQL.Text := sSQL;
qryLogin.Open;
if not qryLogin.Eof then
// 正确
else
// 不正确
end;
--------------------------------------
这些是什么东西,具体价绍一下~
sSQL = 'SELECT * FROM LoginTable WHERE LoginName = ''' + edtLoginName.Text + ''' AND LoginPass = ''' + edtPassword.Text + ''''; //写SQL语句
qryLogin.Close//准备更新Query
qryLogin.SQL.Text := sSQL;
qryLogin.Open; //执行Query
if not qryLogin.Eof then //如果查询有记录
// 正确
else //如果查询没有记录
// 不正确
end;